home *** CD-ROM | disk | FTP | other *** search
/ Perusromppu 2 / Perusromppu 2 - 40 suomenkielistä opetusohjelmaa.iso / perusr2 / verden / frmlyd.frm < prev    next >
Text File  |  1996-10-07  |  3KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form frmLyd 
  3.    BackColor       =   &H00FFFF80&
  4.    Caption         =   "─Σnisignaalit"
  5.    ClientHeight    =   2580
  6.    ClientLeft      =   1590
  7.    ClientTop       =   2160
  8.    ClientWidth     =   6510
  9.    ControlBox      =   0   'False
  10.    Height          =   2985
  11.    HelpContextID   =   540
  12.    Left            =   1530
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2580
  17.    ScaleWidth      =   6510
  18.    Top             =   1815
  19.    Width           =   6630
  20.    Begin CommandButton Command1 
  21.       Caption         =   "OK"
  22.       Height          =   432
  23.       Left            =   4380
  24.       TabIndex        =   0
  25.       Top             =   1620
  26.       Width           =   1452
  27.    End
  28.    Begin CheckBox Check1 
  29.       BackColor       =   &H00FFFF80&
  30.       Height          =   252
  31.       Left            =   1500
  32.       TabIndex        =   3
  33.       Top             =   1560
  34.       Width           =   192
  35.    End
  36.    Begin TextBox Text2 
  37.       FontBold        =   0   'False
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   8.25
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   312
  44.       Left            =   1500
  45.       TabIndex        =   2
  46.       Top             =   960
  47.       Width           =   4332
  48.    End
  49.    Begin TextBox Text1 
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       Height          =   312
  57.       Left            =   1500
  58.       TabIndex        =   1
  59.       Top             =   480
  60.       Width           =   4332
  61.    End
  62.    Begin Label Label3 
  63.       BackColor       =   &H00FFFF80&
  64.       Caption         =   "KΣytΣ ΣΣnisignaaleja"
  65.       Height          =   252
  66.       Left            =   1800
  67.       TabIndex        =   6
  68.       Top             =   1584
  69.       Width           =   2292
  70.    End
  71.    Begin Label Label2 
  72.       BackColor       =   &H00FFFF80&
  73.       Caption         =   "Hyi-ΣΣni:"
  74.       Height          =   312
  75.       Left            =   600
  76.       TabIndex        =   5
  77.       Top             =   1020
  78.       Width           =   792
  79.    End
  80.    Begin Label Label1 
  81.       BackColor       =   &H00FFFF80&
  82.       Caption         =   "OK-ΣΣni:"
  83.       Height          =   312
  84.       Left            =   600
  85.       TabIndex        =   4
  86.       Top             =   540
  87.       Width           =   1212
  88.    End
  89. End
  90. Option Explicit
  91.  
  92. Sub Command1_Click ()
  93.   Dim OldOKLyd, OldFyLyd  As String
  94.   Dim OldLydTil
  95.   OldLydTil = LydTil
  96.   OldOKLyd = OkLyd
  97.   OldFyLyd = FyLyd
  98.   frmLyd.Hide
  99.   LydTil = (frmLyd.Check1.Value = 1)
  100.   OkLyd = Trim(frmLyd.Text1)
  101.   FyLyd = Trim(frmLyd.Text2)
  102.   If OldLydTil <> LydTil Or OldOKLyd <> OkLyd Or OldFyLyd <> FyLyd Then
  103.     GemINIFil
  104.   Else
  105.     LydTil = OldLydTil
  106.     OkLyd = OldOKLyd
  107.     FyLyd = OldFyLyd
  108.   End If
  109. End Sub
  110.  
  111.